From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Jan 2007 07:05:17 +0000 (+0000)
Subject: (eval-expression): Don't use eval-last-sexp-print-value
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~2608
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=69fcb9bbc89bca94ae2ee3a95cd3bdc7e609cc9a;p=emacs.git

(eval-expression): Don't use eval-last-sexp-print-value
when inserting in buffer.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index ac97d53d3bf..8c03b919c59 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1079,7 +1079,7 @@ this command arranges for all errors to enter the debugger."
     (if eval-expression-insert-value
 	(with-no-warnings
 	 (let ((standard-output (current-buffer)))
-	   (eval-last-sexp-print-value (car values))))
+	   (prin1 (car values))))
       (prog1
           (prin1 (car values) t)
         (let ((str (eval-expression-print-format (car values))))